   1 .
   2 .GOBBLERS
   3 .
  10 clear ;BC=2;FC=144;NT=0;K=0;@(2)=0;@(3)=0;gosub 320
  15 clear ;NT=0;K=K+1;L=50;P=1;U=38;&(10)=34;BC=4;FC=80;goto 230
  20 C=23-(@(P-1)-6)div 10mul 15;R=RMmul 15-68;return 
  30 for P=1to 2;gosub 20;W=@(P-1);V=@(W);@(W)=0;if V@(P+1)=@(P+1)+V;for X=1to V;MU=84;MU=86;MU=88;next X
  40 if V L=L-1
  50 box R,C,13,13,1;next P;NT=0;CX=66;CY=U;print @(2);CX=25;CY=U;print @(3)
  52 if L=48box 0,U,18,7,2;if K>1CX=-23;CY=U;print "GAME",#4,K
  54 if L=0goto 260
  56 NT=1;for P=1to 2;B=JX(P);if Bgoto 60
  58 B=-10mul JY(P)
  60 @(P+3)=B;if Bgosub 20;X=Bdiv 5;Y=RMmul 2;box R+Y,C-X,13-Xmul X,13-Ymul Y,2
  70 next P;for P=1to 2;gosub 20;B=@(P+3);if Bgosub 20;gosub 90;gosub 20;box R,C,13,13,3
  80 next P;M=M+1;goto 30
  90 box R,C,13,13,2;if B=0return 
 100 X=P-1;A=B+@(X);if (A<6)+(A>55)A=@(X)
 110 if @(2-P)=A A=@(X)
 120 @(X)=A;return 
 130 NT=1;for H=9to 54step 3;box 0,0,H+96,H,3;MU=H+40;next H;&(10)=144;CY=-32;for T=0to 250;next T;return 
 140 for T=0to 500;next T;return 
 150 for T=0to 35;next T;return 
 190 box R,C,7,7,1;box R-1,C+2,2,2,2;D=@(A);if D>1box R+2,C-1,2,2,2
 200 if D>2box R+2,C+2,2,2,2
 210 if D=4box R-1,C-1,2,2,2
 220 MU=Dmul 18;MU=D+20;return 
 230 CX=-48;CY=U;print "ONE MOMENT PLEASE";NT=1;for A=6to 55;@(A)=rnd (4);@(0)=A;gosub 20;gosub 190;next A
 240 @(0)=28;@(1)=33;NT=0;box 0,U,102,7,2;BC=2;FC=141;CX=-24;CY=U;print "GET READY
 250 for S=34to 180;&(10)=S;next S;box 0,U,54,7,2;BC=1;FC=172;CX=-6;CY=U;print "GO!";goto 30
 260 NT=0;box 0,-7,160,73,2;FC=245;CY=0;if @(2)=@(3)CX=-47;print "THIS GAME IS TIED";gosub 130
 270 CX=-42;if @(2)>@(3)print "PLAYER ONE WINS";gosub 130;NT=9;print "5808808876505505607808800
 280 if @(2)<@(3)print "PLAYER TWO WINS";gosub 130;NT=12;print "330350530210120354230010
 290 if K>1goto 300
 295 NT=0;CY=-32;print "TR(1) STARTS NEW GAME AT 0";print " TR(2) ACCUMULATES SCORES",;for S=144to 180;&(10)=S;next S;FC=44
 300 if TR(1)run 
 305 if TR(2)goto 15
 310 goto 300
 320 CX=-41;CY=0;print "G O B B L E R S";box -58,0,13,13,1;box -56,0,9,9,2;box 58,0,13,13,1;box 56,0,9,9,2
 330 gosub 140;E=-46;F=46
 340 NT=15;gosub 150;MU="#";MU="$";box E-12,0,13,13,2;box E,0,13,13,1;box E+2,0,9,9,2
 350 gosub 150;MU="%";MU="$";box F+12,0,13,13,2;box F,0,13,13,1;box F-2,0,9,9,2;E=E+12;F=F-12;if F<10gosub 140;return 
 360 goto 340
>:return 
